unit uClasses;

interface

uses Classes, uDebug;

type
  function BoolToStr2(AValue: boolean): string;

implementation

{=====================================================}
uses SysUtils, Messages, frm.debug, dialogs, math;

function BoolToStr2(AValue: boolean): string;
begin
  result := 'WTF?!?!?';

  if (AValue = TRUE) then result := 'TRUE'
  else                    result := 'FALSE';
end; {--BoolToStr--}

end.
